install.packages(c('reshape','car'))
library(car)
library(reshape)

#there is a handy library called schoRsch that gives you partial eta squared from ezANOVA
#http://finzi.psych.upenn.edu/library/schoRsch/html/anova_out.html


zz <- file.path("U:","My Documents")

File.Location <- file.path(zz,"Unpaired_t.csv")
y <- read.csv(File.Location)
y <- data.frame(y)
t.test(score ~ condition,data = y, var.equal = TRUE)
t.test(score ~ condition, data = y, paired = TRUE)

zz <- file.path("U:","My Documents")

File.Location <- file.path(zz,"Paired_t.csv")
y <- read.csv(File.Location)
y <- data.frame(y)
y$score <- y$score2-y$score1
t.test(y$score,mu=0)